home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / mods / cellular / ts940ibm.mod < prev    next >
Internet Message Format  |  1994-01-10  |  2KB
  1. From: VK3YZW@VK3YZW
  2. To: ALL
  3.  
  4. HI,
  5.    THIS PROGRAM WAS A RESULT OF A PRIVATE REQUEST AND IS NOW PUT
  6. ON THE BBS FOR ALL TO USE WHO MAY LIKE TO TAKE ADVANTAGE.
  7.  
  8. GOOD LUCK WITH IT....DON
  9.  
  10. Here below is a program that can control the TS940 to run under IBM XT.
  11. The program is written by JA6FTL and his group.
  12. The program is being used by JA6FTL and no bug report was found!
  13. Good Luck, 73
  14.  
  15. Eric VS6EL @ VS6EL
  16. ; **********************************************************
  17. ;     TS-940 remote control programm for IBM-PC/AT/XT
  18. ;     1988/05    Southern NET
  19. ;   MBBIOS and MBMODE must be run before execute.
  20. ;   Com port 1-6(A-F) allowed.
  21. ;       Usage....... 940set_(port)_(parameter)(parameter)...
  22. ;       example         940set a FA00014073000;MD1;
  23. ; ***********************************************************
  24.  
  25.  
  26. NUL    = 00h
  27. TAB    = 09h
  28. CR    = 0dh
  29. LF    = 0ah
  30. BEEP    = 07h
  31. error    = 1
  32. noerror    = 0
  33.  
  34. print    macro string
  35.     mov    ax,data
  36.     mov    ds,ax
  37.     lea    dx,string
  38.     mov    ah,09h
  39.     int    21h
  40.     endm
  41. putch    macro    ch
  42.     mov    dl,ch
  43.     mov    ah,02h
  44.     int    21h
  45.     endm
  46.  
  47. mg    group    code,data
  48. data    segment    
  49. no_cn        db    BEEP,"Not channel [A-F]$",CR,LF
  50. cmd_e_msg    db    BEEP,"ommamd error .Usage (channel) (parameter)",CR,LF,"$"
  51. no_bios        db    BEEP,"Not loadedMBBIOS.$"
  52. data    ends
  53.  
  54.  
  55. cod    segment        
  56.     assume    cs:code;ds:code
  57.     org    81h
  58. channel    label    byte
  59.     org    82h
  60. cmdline    label    byte
  61. start:
  62.     org    100h
  63. main    proc    near
  64.  
  65.     call     bios_chk    ; com bios exit ?
  66.  
  67.     modi,offset channel    
  68. argment:mov    al,[di]
  69.     cmp    al,CR
  70.     je    cmd_error    ;command error
  71.     cmp    al,' '
  72.     jne    port
  73.     add    di,1
  74.     loop    argment
  75. port:
  76.     push    ds
  77.     call    chk_ch        ;channel check
  78.     sub    al,'A'        ; get port idn
  79.     mov    ah,0
  80.     mov    bx,ax        ; CX is port idn
  81.     pop    ds
  82.     mov    di,offset cmdline
  83.     add    di,2
  84. get_cm
  85.     mov    al,[di]
  86.     add    di,1
  87.     cmp    al,CR
  88.     jz    e_p        ;end
  89.     cmp    al,' '        ; skip space
  90.     jz    get_cmd
  91.     call    toupr
  92.     call    outi
  93.     loop    get_cmd
  94. extprog:mov    al,0 
  95.     mov    ah,4ch
  96.     int    21h
  97. cmd_error:
  98.     print    cmd_e_msg
  99.     jmp    end_p
  100. chk_ch:                ;channel is A-F ?
  101.     
  102.     call    toupr        ; to upper
  103.     cmp    al,'A'
  104.     jl    no_cn_msg
  105.     cmp    al,'G'
  106.     jg    no_cn_msg
  107.     ret
  108. toupr:
  109.     cmp    al,'Z'
  110.     jl    not_mall
  111.     sub    al,20h
  112. not_small:
  113.     ret
  114. no_cn_msg:            ;no channel msg
  115.     print    no_cn
  116. end_p:
  117.     mov    al,0        ; nomal end
  118.     mov    ah,4ch
  119.     int    21h
  120. bios_chk:
  121.     mov    dx,00
  122.     mov    ah,04
  123.     int    14h
  124.     cmp    a0aa55h
  125.     jne    exit           ; bios no loaded
  126.     ret
  127. exit:
  128.     print     no_bio
  129.  
  130.     jmp    end_p
  131. outi:    
  132.     push    bx
  133.     xor    dx,dx
  134.     mov    dx,bx        ; load port_idn
  135.     mov    ah,01h        ; sirial out cmd for int 14
  136.     int    14h
  137.     pop    bx
  138.     ret
  139.     
  140. main    endp
  141.  
  142. code    ends
  143.     end    main
  144.